#if(!require(devtools)) install.packages("devtools")
#devtools::install_github("kassambara/ggpubr")
library("ggpubr")
##### Correlation between the expression of RPLP1 and CBX1

ggscatter(test, x = "RPLP1", y = "CBX1", 
          add = "reg.line", conf.int = TRUE, 
          cor.coef = TRUE, cor.method = "pearson",
          xlab = "Expression of RPLP1", ylab = "Expression of CBX1")+
  ggtitle("Correlation between the expression of RPLP1 and CBX1")

###### save files in pdf and tiff formats#####
ggsave("Correlation between the expression of RPLP1 and CBX1.pdf")
ggsave("Correlation between the expression of RPLP1 and CBX1.tiff")
ggsave("Correlation between the expression of RPLP1 and CBX1.emf")